home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Online / netspeechd / speechd.s < prev   
Text File  |  2001-07-31  |  12KB  |  651 lines
  1. ; netSpeechD by (c) Cyborg 2001
  2. ; 
  3. ; (c) 1999 Cyborg 
  4.  
  5.  
  6.  
  7. IFND Konstanten_Flag
  8. Konstanten_Flag=1
  9. Endif
  10.  
  11. Mode_New=1006
  12. Mode_Old=1005
  13. Offset_Begin=-1
  14. Offset_End=1
  15. Offset_Current=0
  16. Access_Read=-2
  17. Access_Write=-1
  18. DosTrue=-1
  19. DosFalse=0
  20. True=Dostrue
  21. False=DosFalse
  22. NM_Title=1
  23. NM_Item=2
  24. NM_SUB=3
  25. NM_barlabel=-1
  26. MENU_IMAGE=128
  27. IM_ITEM=NM_ITEM!MENU_IMAGE
  28. IM_SUB=NM_SUB!MENU_IMAGE
  29. NM_END=0
  30. NM_IGNORE=64
  31. MENUENABLED=1
  32. NM_MENUDISABLED=MENUENABLED
  33. Itemenabled=$10
  34. NM_ITEMDISABLED=ITEMENABLED
  35. Commseq=$4
  36. NM_COMMANDSTRING=COMMSEQ
  37. Itemtext=$2
  38. HighFlags=$c0
  39. NM_FLAGMASK=~(COMMSEQ!ITEMTEXT!HIGHFLAGS)
  40. NM_FLAGMASK_V39=~(ITEMTEXT!HIGHFLAGS)
  41. Null=0
  42.     IncDir     "Sys:Coder/"
  43.     Include     "Preass/Konstanten.inc"
  44.     Include     "Preass/ASL_lib.inc"
  45.     Include     "Preass/intuition.inc"
  46.     Include     "Include/Guienv.i"
  47.     Include     "Include/Libraries/gadtools.i"
  48.  
  49. Main:
  50.     Include "preass/Startup.i"
  51.     Jsr Openlibs
  52.     Tst.l D0
  53.     Beq Mainende
  54.     Jsr START
  55.     jsr freeremmalloc
  56. Mainende:
  57.     jsr Closelibs
  58.     Move.l Error,d0
  59.     tst.l d0
  60.     beq .l1
  61.     jmp ErrorHandling
  62. .l1:    Rts
  63.  
  64.  
  65. sockaddr_in.sin_len=0
  66. sockaddr_in.sin_family=1
  67. sockaddr_in.sin_port=2
  68. sockaddr_in.sin_addr=4
  69. sockaddr_in.sin_zero=8
  70. Sockaddr.SA_Len=0
  71. Sockaddr.SA_Family=1
  72. Sockaddr.SA_Data=2
  73.  
  74. Hostent.H_name=0
  75. Hostent.h_aliases=4
  76. Hostent.h_addrtype=8
  77. Hostent.h_length=12
  78. Hostent.H_addr_list=16
  79.  
  80. servent.s_name=0
  81. servent.s_aliases=4
  82. servent.s_port=8
  83. servent.s_proto=10
  84.  
  85. AF_INET=2
  86. INADDR_ANY=0
  87. Sock_STREAM=1
  88. SOCK_DGRAM=2
  89. FIONBIO=$8004667e
  90.  
  91.  
  92. GetSigs:  
  93.     Move.l ExecBase,a6
  94.     Move.l #0,d0
  95.     Move.l #0,d1
  96.     Jsr SetSignal(a6)
  97.     Move.l D0,Signals
  98.     Move.l Signals,d0
  99.     And.l #$F000,d0
  100.     Move.l D0,Signals
  101.     Move.l Signals,d0
  102.     RTS
  103.  
  104. FillBuffer:          
  105.     subq.l #1,d1
  106. .l1:move.b d0,(a0)+
  107.     dbra d1,.l1
  108.     rts    
  109.  
  110.  
  111. Start:
  112.     Move.l #21846,d0
  113.     Move.l D0,UsePort
  114.     lea Filename,a1
  115.     Lea _____name000,a0
  116. .Name001:Move.b (a0)+,d0
  117.     Move.b D0,(a1)+
  118.     Cmpi.b #0,d0
  119.     Bne .Name001
  120. Jsr GetFilename
  121.     Cmp.l #0,d0
  122.     Bne .pre0000
  123.     Bra .pre0001
  124. .pre0000:
  125.  
  126.        lea Filename,a5
  127.        Jsr asc2zahl
  128.        Move.l D0,UsePort
  129. .Pre0001:
  130.     lea Portname,a1
  131.     Lea speechdname001,A0
  132. .Name002:Move.b (a0)+,d0
  133.     Move.b D0,(a1)+
  134.     Cmpi.b #0,d0
  135.     Bne .Name002
  136.     lea -1(a1),A1
  137.     Lea Filename,a0
  138. .Name003:Move.b (a0)+,d0
  139.     Move.b D0,(a1)+
  140.     Cmpi.b #0,d0
  141.     Bne .Name003
  142. Move.l ExecBase,a6
  143. Move.l Portname,a1
  144. Jsr FindPort(a6)
  145.     Cmp.l #0,d0
  146.     Bne .pre0002
  147.     Bra .pre0003
  148. .pre0002:
  149.  
  150. Move.l DOSBase,a6
  151. Move.l #Dname003,d1
  152. Move.l #nullt,d2
  153. Jsr vpf(a6)
  154.      RTS
  155. .Pre0003:
  156. Move.l rot3dbase,a6
  157. Move.l Portname,a0
  158. Jsr PortUp(a6)
  159. Move.l D0,MPort
  160.     Cmp.l #0,d0
  161.     Beq .pre0004
  162.     Bra .pre0005
  163. .pre0004:
  164.  
  165. Move.l DOSBase,a6
  166. Move.l #speechd_Port_NICHT_VERFname004,d1
  167. Move.l #nullt,d2
  168. Jsr vpf(a6)
  169.     Move.l #0,d0
  170.     RTS
  171. .Pre0005:
  172.     Moveq.l #$0,d0
  173.     Move.l D0,DeineNummer
  174. Move.l DOSBase,a6
  175. Move.l #speechd_gestartetxnname005,d1
  176. Move.l #nullt,d2
  177. Jsr vpf(a6)
  178. Move.l BSDSocketBase,a6
  179. Move.l #AF_INET,d0
  180. Move.l #SOCK_DGRAM,d1
  181. Move.l #0,d2
  182. Jsr TCP_Socket(a6)
  183. Move.l D0,socket
  184.    Cmp.l #-1,d0
  185.    Bne .pre0006
  186.    Bra .pre0007
  187. .pre0006:
  188.  
  189.         lea sockaddr_in,A0
  190.         Lea sockaddr_in.sin_family(a0),a0
  191.         Move.l #AF_Inet,d0
  192.         Move.b d0,(A0)
  193.          lea sockaddr_in,A0
  194.          Lea sockaddr_in.sin_port(a0),a0
  195.          Move.l UsePort,d0
  196.          Move.w d0,(A0)
  197.      lea sockaddr_in,A0
  198.      Lea sockaddr_in.sin_addr(a0),a0
  199.      Move.l #INADDR_ANY,(a0)
  200.              lea sockaddr_in,A0
  201.              Lea sockaddr_in.sin_len(a0),a0
  202.              Move.l #16,d0
  203.              Move.b d0,(A0)
  204.         Move.l BSDSocketBase,a6
  205.         Move.l Socket,d0
  206.         lea Sockaddr_in,a0
  207.         Move.l #16,d1
  208.         Jsr TCP_Bind(a6)
  209.         Move.l D0,ret
  210.         Move.l Ret,d0
  211.         Cmp.l #-1,d0
  212.         Beq .pre0008
  213.         Bra .pre0009
  214. .pre0008:
  215.  
  216. Move.l DOSBase,a6
  217. Move.l #speechd___Bind_Error_xnname006,d1
  218. Move.l #nullt,d2
  219. Jsr vpf(a6)
  220.          Move.l BSDSocketBase,a6
  221.          Move.l Socket,d0
  222.          Jsr TCP_CloseSocket(a6)
  223.            Move.l rot3dbase,a6
  224.            Move.l mPort,a0
  225.            Jsr PortDown(a6)
  226.            Move.l #0,d0
  227.     RTS
  228. .Pre0009:
  229. .While0000:
  230. Jsr GetSigs
  231.          Cmp.l #0,d0
  232.          Beq .pre0010
  233.          Bra .pre0011
  234. .pre0010:
  235.  
  236.            Move.l #16,d0
  237.            Move.l D0,Sockaddrlen
  238.            lea Zwischenpuffer,A0
  239.            Move.l #0,d0
  240.            Move.l #5000,d1
  241.            Jsr Fillbuffer
  242.            Move.l BSDSocketBase,a6
  243.            Move.l Socket,d0
  244.            lea ZwischenPuffer,a0
  245.            Move.l #3000,d1
  246.            Move.l #0,d2
  247.            lea Sockaddr_in,a1
  248.            lea sockaddrlen,a2
  249.            Jsr TCP_RecvFrom(a6)
  250.            Move.l D0,res1
  251.            Jsr TCP_Errno(a6)
  252.            Move.l D0,res2
  253.            Move.l res2,d0
  254.            Cmp.l #0,d0
  255.            Beq .pre0012
  256.            Move.l res1,d0
  257.            Cmp.l #-1,d0
  258.            Bgt .pre0012
  259.            Bra .pre0013
  260. .pre0012:
  261.  
  262. Move.l DOSBase,a6
  263. Move.l #speak_name007,d1
  264. Move.l #MODE_OLD,d2
  265. Jsr open(a6)
  266. Move.l D0,sh
  267.               Cmp.l #0,d0
  268.               Bne .pre0014
  269.               Bra .pre0015
  270. .pre0014:
  271.  
  272.                  Move.l DOSBase,a6
  273.                  Move.l SH,d1
  274.                  Move.l #Zwischenpuffer,d2
  275.                  Move.l res1,d3
  276.                  Jsr Write(a6)
  277.                  Move.l SH,d1
  278.                  Jsr close(a6)
  279. .Pre0015:
  280. .Pre0013:
  281.            Move.l ret,d0
  282.            Cmp.l #-1,d0
  283.            Beq .pre0016
  284.            Bra .pre0017
  285. .pre0016:
  286.  
  287.               Move.l DOSBase,a6
  288.               Move.l #25,d1
  289.               Jsr Delay(a6)
  290.               Move.l BSDSocketBase,a6
  291.               Jsr TCP_Errno(a6)
  292.               Move.l D0,RES
  293. lea pf008,a0
  294. move.l  res,0000(a0)
  295. Move.l DOSBase,a6
  296. Move.l #speechd___Accept_Error_name008,d1
  297. Move.l #pf008,d2
  298. Jsr vpf(a6)
  299. .Pre0017:
  300. Bra .While0000
  301. .Pre0011:
  302. .While0001:
  303. Move.l DOSBase,a6
  304. Move.l #speechd___Dname009,d1
  305. Move.l #nullt,d2
  306. Jsr vpf(a6)
  307.     Move.l BSDSocketBase,a6
  308.     Move.l Socket,d0
  309.     Jsr TCP_CloseSocket(a6)
  310. .Pre0007:
  311.     Move.l rot3dbase,a6
  312.     Move.l mPort,a0
  313.     Jsr PortDown(a6)
  314.     RTS
  315.  
  316.  
  317. GetFilename:
  318.         cmpi.l #0,laenge
  319.         beq .l13
  320.         cmpi.l #1,laenge
  321.         beq .l13
  322.         suba.l a2,a2
  323.         suba.l a1,a1
  324.         Move.l Adresse,a0
  325. .l1:    cmpi.b #`"`,(a0)
  326.         beq .l10
  327.         cmpi.b #` `,(a0)+
  328.         beq .l1
  329.         lea -1(a0),a1
  330. .l2:    cmpi.b #`"`,(a0)
  331.         beq .l11
  332.         cmpi.b #$0a,(a0)
  333.         beq .l12
  334.         cmpi.b #$00,(a0)
  335.         beq .l12
  336.         cmpi.b #` `,(a0)+
  337.         bne .l2
  338.         Lea -1(a0),a2
  339. .l3:    suba.l a1,a2
  340.         move.l A0,NextArg
  341.         Move.l ExecBase,a6
  342.         Move.l a1,a0
  343.         Move.l #Filename,a1
  344.         Move.l a2,d0
  345.         Jsr Copymem(a6)
  346.         Move.l a2,d0
  347.         rts
  348. .l10:   lea 1(a0),a1
  349.         movea.l a1,a0
  350.         bra .l22
  351. .l11:   move.l a0,a2
  352.         bra .l3
  353. .l12:   move.l a0,a2
  354.         bra .l3
  355. .l13:   moveq.l #0,d0
  356.         RTS
  357. .l22:   cmpi.b #`"`,(a0)
  358.         beq .l11
  359.         cmpi.b #$0a,(a0)
  360.         beq .l12
  361.         cmpi.b #$00,(a0)
  362.         beq .l12
  363.         lea 1(a0),a0
  364.         bne .l22
  365.  
  366. CountString2:    
  367.         move.l a1,-(Sp)
  368.         move.l a0,a1
  369. .l1:    cmpi.b #$0a,(a1)
  370.         beq .l2
  371.         cmpi.b #",",(a1)
  372.         beq .l2
  373.         cmpi.b #" ",(a1)
  374.         beq .l2
  375.         cmpi.b #$00,(a1)+
  376.         bne .l1
  377.         lea -1(a1),a1
  378. .l2:    sub.l a0,a1
  379.         move.l a1,d0
  380.         move.l (sp)+,a1
  381.         RTS
  382.  
  383. ASC2Zahl:    
  384.     Move.l a5,a0
  385.     Jsr Countstring2
  386.     move.l d0,d7
  387.     subq.l #2,d7
  388.     move.l #1,d0
  389.     cmpi.w #$FFFF,d7
  390.     beq .la
  391. .l0:mulu.l #10,d0
  392.     dbra d7,.l0
  393. .la:move.l d0,d6
  394.     moveq.l #0,d1
  395.     move.l a5,a0
  396.     move.b #"+",d5
  397. .l1:moveq.l #0,d0
  398.     move.b (A0)+,d0
  399.     cmpi.b #"-",d0
  400.     bne .l2
  401.     move.b d0,d5
  402.     Divs.l #10,d6
  403.     bra .l1
  404. .l2:subi.b #$30,d0
  405.     andi.l #$FF,d0
  406.     Muls.l d6,d0
  407.     divs.l #10,d6
  408.     add.l d0,d1
  409.     cmpi.l #0,d6
  410.     bne .l1
  411.     lea 1(a0),a0
  412. ;    move.l a0,NextArg
  413.     move.l d1,d0
  414.     cmpi.b #"+",d5
  415.     beq .l3
  416.     neg.l d0
  417. .l3:RTS
  418.  
  419. Errorhandling:
  420.     Move.l Dosbase,d0
  421.     Cmp.l #0,d0
  422.     Beq .pre0000
  423.     Bra .pre0001
  424. .pre0000:
  425.  
  426.        Move.l ExecBase,a6
  427.        Move.l #dosname000,a1
  428.        Move.l #0,d0
  429.        Jsr Openlibrary(a6)
  430.        Move.l D0,Dosbase
  431.        Move.l DosBase,a1
  432.        Jsr CloseLibrary(a6)
  433. .Pre0001:
  434.     Move.l DOSBase,a6
  435.     Jsr output(a6)
  436.     Move.l D0,Ausgabe
  437.     Move.l Error,d0
  438.     Cmp.l #1,d0
  439.     Beq .Pre0002
  440.     Bra .pre0003
  441. .pre0002:
  442. Move.l DOSBase,a6
  443. Move.l Ausgabe,d1
  444. Move.l #Allgemeiner_Fehlerxnname001,d2
  445. Moveq.l #$13,d3
  446. Jsr Write(a6)
  447. .pre0003:
  448.     Move.l Error,d0
  449.     Cmp.l #2,d0
  450.     Beq .Pre0004
  451.     Bra .pre0005
  452. .pre0004:
  453. Move.l DOSBase,a6
  454. Move.l Ausgabe,d1
  455. Move.l #Konnte_File_nicht_findenxnname002,d2
  456. Moveq.l #$19,d3
  457. Jsr Write(a6)
  458. .pre0005:
  459.     Move.l Error,d0
  460.     Cmp.l #3,d0
  461.     Beq .Pre0006
  462.     Bra .pre0007
  463. .pre0006:
  464. Move.l DOSBase,a6
  465. Move.l Ausgabe,d1
  466. Move.l #Window_Screen_Fehlerxnname003,d2
  467. Moveq.l #$15,d3
  468. Jsr Write(a6)
  469. .pre0007:
  470.     Move.l Error,d0
  471.     Cmp.l #4,d0
  472.     Beq .Pre0008
  473.     Bra .pre0009
  474. .pre0008:
  475. lea PreassErrorTags,a0
  476. move.l  d7,0000(a0)
  477. Move.l DOSBase,a6
  478. Move.l Ausgabe,d1
  479. Move.l #Library_nicht_gefunden__name004,d2
  480. Move.l #PreassErrorTags,d3
  481. Jsr VFWriteF(a6)
  482. .pre0009:
  483.     Move.l Error,d0
  484.     Cmp.l #5,d0
  485.     Beq .Pre0010
  486.     Bra .pre0011
  487. .pre0010:
  488. Move.l DOSBase,a6
  489. Move.l Ausgabe,d1
  490. Move.l #Fehlerhafte_Eingabexnname005,d2
  491. Moveq.l #$14,d3
  492. Jsr Write(a6)
  493. .pre0011:
  494.     Move.l Error,d0
  495.     Cmp.l #6,d0
  496.     Beq .Pre0012
  497.     Bra .pre0013
  498. .pre0012:
  499. Move.l DOSBase,a6
  500. Move.l Ausgabe,d1
  501. Move.l #Speicherfehlerxnname006,d2
  502. Moveq.l #$0F,d3
  503. Jsr Write(a6)
  504. .pre0013:
  505.     RTS
  506.  
  507. Ausgabe:        dc.l 0
  508. even
  509. dosname000:    dc.b `dos.library`,0
  510. even
  511. Allgemeiner_Fehlerxnname001:
  512.     dc.b `Allgemeiner Fehler`,$a,``,0
  513. even
  514. Konnte_File_nicht_findenxnname002:
  515.     dc.b `Konnte File nicht finden`,$a,``,0
  516. even
  517. Window_Screen_Fehlerxnname003:
  518.     dc.b `Window|Screen Fehler`,$a,``,0
  519. even
  520. Fehlerhafte_Eingabexnname005:
  521.     dc.b `Fehlerhafte Eingabe`,$a,``,0
  522. even
  523. Speicherfehlerxnname006:    dc.b `Speicherfehler`,$a,``,0
  524. even
  525.  
  526. even
  527. Library_nicht_gefunden__name004:
  528.     dc.b `Library nicht gefunden: %S`,$a,``,0
  529. even
  530. PreassErrorTags:
  531.     dc.l 0,0
  532. even
  533.  
  534. Even
  535. Freeremmalloc:
  536. rts 
  537. Even
  538. Openlibs:
  539.     Move.l $4.w,a6
  540.     Move.l #DOSname,a1
  541.     Moveq.l #0,d0
  542.     Jsr Openlibrary(a6) 
  543.     Move.l d0,DOSbase
  544.     Tst.l D0
  545.     Beq.w .ende
  546.     Move.l #rot3dname,a1
  547.     Moveq.l #0,d0
  548.     Jsr Openlibrary(a6) 
  549.     Move.l d0,rot3dbase
  550.     Tst.l D0
  551.     Beq.w .ende
  552.     Move.l #BSDSocketname,a1
  553.     Moveq.l #0,d0
  554.     Jsr Openlibrary(a6) 
  555.     Move.l d0,BSDSocketbase
  556.     Tst.l D0
  557.     Beq.w .ende
  558.     rts
  559. .ende:    Move.l #4,error
  560.     Move.l a1,d7
  561.     rts
  562. Closelibs:
  563.     Move.l $4.w,a6
  564.     Tst.l DOSbase
  565.     Beq.w .ende00
  566.     Move.l DOSbase,a1
  567.     Jsr Closelibrary(a6)
  568. .ende00:Tst.l rot3dbase
  569.     Beq.w .ende01
  570.     Move.l rot3dbase,a1
  571.     Jsr Closelibrary(a6)
  572. .ende01:Tst.l BSDSocketbase
  573.     Beq.w .ende02
  574.     Move.l BSDSocketbase,a1
  575.     Jsr Closelibrary(a6)
  576. .ende02:Rts
  577. even
  578. WBmessage:        dc.l 0
  579. Laenge:        dc.l 0
  580. Adresse:        dc.l 0
  581. Error:        dc.l 0
  582. Addr:        dc.l 0
  583. Zeiger:        dc.l 0
  584. Signals:        dc.l 0
  585. UsePort:        dc.l 0
  586. MPort:        dc.l 0
  587. DeineNummer:        dc.l 0
  588. socket:        dc.l 0
  589. ret:        dc.l 0
  590. Sockaddrlen:        dc.l 0
  591. res1:        dc.l 0
  592. res2:        dc.l 0
  593. sh:        dc.l 0
  594. RES:        dc.l 0
  595. NextArg:        dc.l 0
  596. Potenz:        dc.l 0
  597. NONE:        dc.l 0
  598. DOSBase:        dc.l 0
  599. rot3dbase:        dc.l 0
  600. BSDSocketBase:        dc.l 0
  601. even
  602. Version:    dc.b "$VER: speechd 1.0 Cyborg 2001",0
  603. even
  604. sockaddr_in:    blk.b 16,0
  605. even
  606. Sockaddr:    blk.b 16,0
  607. even
  608. Portname:    blk.b 20,0
  609. even
  610. _____name000:
  611.     dc.b `21846`,0
  612. even
  613. speechdname001:    dc.b `speechd.`,0
  614. even
  615. Dname003:    dc.b `Dämon läuft schon.`,$a,``,0
  616. even
  617. speechd_Port_NICHT_VERFname004:
  618.     dc.b `speechd Port NICHT VERFÜGBAR!`,$a,``,0
  619. even
  620. speechd_gestartetxnname005:
  621.     dc.b `speechd gestartet`,$a,``,0
  622. even
  623. speechd___Bind_Error_xnname006:
  624.     dc.b `speechd - Bind-Error `,$a,``,0
  625. even
  626. zwischenpuffer:    blk.b 5000,0
  627. even
  628. speak_name007:
  629.     dc.b `speak:`,0
  630. even
  631. speechd___Accept_Error_name008:
  632.     dc.b `speechd - Accept-Error %ld`,$a,``,0
  633. even
  634. pf008:
  635.     dc.l res,0
  636. speechd___Dname009:
  637.     dc.b `speechd - Dämon beendet sich jetzt`,$a,``,0
  638. even
  639. Filename:    blk.b 256,0
  640. even
  641. Nullt: dc.b 0
  642. DOSname: dc.b "dos.library",0
  643. rot3dname: dc.b "rot3d.library",0
  644. BSDSocketname: dc.b "bsdsocket.library",0
  645. even
  646.     Include "Preass:LVO3.0/Exec_lib.i"
  647.     Include "Preass:LVO3.0/DOS_lib.i"
  648.     Include "Preass:LVO3.0/rot3d_lib.i"
  649.     Include "Preass:LVO3.0/BSDSocket_lib.i"
  650.  
  651.